home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 19
/
Tiger_Disk_019_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
zahlen rechts
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
293b
|
8 lines
10 a=3 : rem anzahl vorkommastellen
20 b=3 : rem anzahl nachkommastellen
30 fory=1to10:readx(y):next
40 print"[147]zahlen 'rechtsbuendig'"
50 fory=1to10:printtab(a-(int(log(x(y))/log(10))));int(x(y)*10^b)/10^b:next
60 print"taste!":poke198,0:wait198,1:list-50
70 data20.345,123.67,9.4,195.43,999.99999,13.654,274.19,75.75,869.1,2.47